home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / lcu.zip / MEMCOMP.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-04  |  567b  |  26 lines
  1. {$R-,S-,V-}
  2. {
  3. **
  4. **  CompMem - A routine to compare to areas of memory for equality
  5. **  by Richard S. Sadowsky [74017,1670]
  6. **  version 1.0  5/11/88
  7. **  released to the public domain
  8. **  requires file MEMCOMP.OBJ to recompile
  9. **
  10.  
  11. }
  12. unit MemComp;
  13.  
  14. interface
  15.  
  16. function CompMem(var Block1,Block2; Size : Word) : Word;
  17. { returns 0 if Block1 and Block2 are equal for Size bytes, otherwise }
  18. { returns position of first non matching byte }
  19.  
  20. implementation
  21.  
  22. function CompMem(var Block1,Block2; Size : Word) : Word; External;
  23. {$L memcomp.Obj}
  24.  
  25. end.
  26.